home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / PASCAL / 0514.ZIP / CRAYZ15.ARC / DIZZ.VAR < prev    next >
Text File  |  1986-08-01  |  568b  |  18 lines
  1. { Copyright (C) 1986 Adam Fritz, 133 Main St., Afton, NY 13730 }
  2.  
  3. var
  4.      n              : integer ;
  5.      PrintCode      : integer ;
  6.      aID            : vARRAY ; { partition allocated to matrix A }
  7.      RCond          : real ;
  8.      InfoCode       : integer ;
  9.      IPvt           : IVECTOR ;
  10.      Det            : DVECTOR ;
  11.      b              : VECTOR ;
  12.      JobCode        : integer ;
  13.      Work           : VECTOR ;
  14.      iAi,iAj,iAk,iAl : integer ;
  15.      Ai,Aj,Ak,Al    : VECTOR ;
  16.  
  17. { Copyright (C) 1986 Adam Fritz, 133 Main St., Afton, NY 13730 }
  18.